home *** CD-ROM | disk | FTP | other *** search
/ Max Calendar 2001 / Max Calendar 2001.iso / pc / Data / Main.dxr / 00033_SCRIVI TESTI SU HD.ls < prev    next >
Encoding:
Text File  |  2000-10-16  |  1007 b   |  39 lines
  1. global gPercorso
  2.  
  3. on exitFrame
  4.   if the machineType <> 256 then
  5.     car = ":"
  6.     trovaNome(car)
  7.     put gPercorso & ":Max2001:Agenda.cst" into member "NomeCast"
  8.     if FileExists(field("NomeCast")) = 0 then
  9.       eliminaPuppet()
  10.       SvuotaTxt()
  11.       go("Cover")
  12.     else
  13.       put gPercorso & ":Max2001" into member "Nome"
  14.       CreateDirectory(field("Nome"))
  15.       gNewPercorso = gPercorso & ":Max2001:"
  16.       save(castLib("Testo"), gNewPercorso & "Agenda.cst")
  17.       SvuotaTxt()
  18.       go("Cover")
  19.     end if
  20.   else
  21.     car = "\"
  22.     trovaNome(car)
  23.     put gPercorso & "\Max2001\Agenda.cst" into member "NomeCast"
  24.     if FileExists(field("NomeCast")) = 0 then
  25.       eliminaPuppet()
  26.       SvuotaTxt()
  27.       go("Cover")
  28.     else
  29.       put gPercorso & "\Max2001" into member "Nome"
  30.       CreateDirectory(field("Nome"))
  31.       gNewPercorso = gPercorso & "\Max2001\"
  32.       put gNewPercorso
  33.       save(castLib("Testo"), gNewPercorso & "Agenda.cst")
  34.       SvuotaTxt()
  35.       go("Cover")
  36.     end if
  37.   end if
  38. end
  39.